Power Bytes: Money & Finance/PowerBytes Money and Finance CD-ROM 01/PowerBytes Money and Finance CD-ROM 01.iso/Demos/TrueBASIC Demo/User's Guide/Circle

Text File | 1985-07-12 | 443 b | 19 lines | [TEXT/TRUE]

! Draw a circle picture.
!
PICTURE Circle(sides)

    FOR i = 0 to sides
       LET u = (i*2*Pi)/sides       ! Find next angle
       PLOT Cos(u), Sin(u);         ! Plot next segment
    NEXT i
    PLOT                            ! Turn off beam

END PICTURE

SET WINDOW -15, 15, -10, 10         ! Set the window

FOR j = 1 to 30                     ! Draw a bunch of circles
    DRAW Circle(j) with Scale(j/3)  ! Bigger and better
NEXT j
END